home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.03 Mar 86.sit / 02.03 Mar 86 / Pascal 2-3 / Small Flight Source / Small Flight.pas < prev    next >
MacBinary  |  1986-02-13  |  5.9 KB  |  [TEXT/EDIT]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert TheDraw Pascal screen Image (image/theDrawPascalScreenImage) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Thu Feb 13 11:01:19 1986, modified Thu Feb 13 11:01:19 1986, creator Macintosh Edit, type ASCII, 5499 bytes "Small Flight.pas" , at 0x15fb 348 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[EDIT]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 53 6d 61 6c 6c 20 | 46 6c 69 67 68 74 2e 70 |..Small |Flight.p|
|00000010| 61 73 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |as......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 15 7b 00 | 00 01 5c 9a 77 c0 4f 9a |......{.|..\.w.O.|
|00000060| 77 c0 4f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |w.O.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 e2 11 00 00 |........|........|
|00000080| 0d 70 72 6f 67 72 61 6d | 20 73 6d 61 6c 6c 66 6c |.program| smallfl|
|00000090| 69 67 68 74 3b 09 09 20 | 20 20 20 20 20 20 20 7b |ight;.. |       {|
|000000a0| 20 61 20 73 63 61 6c 65 | 64 2d 64 6f 77 6e 20 22 | a scale|d-down "|
|000000b0| 73 74 61 72 20 66 6c 69 | 67 68 74 22 20 7d 0d 0d |star fli|ght" }..|
|000000c0| 7b 20 57 72 69 74 74 65 | 6e 20 62 79 20 4d 69 6b |{ Writte|n by Mik|
|000000d0| 65 20 4d 6f 72 74 6f 6e | 20 66 6f 72 20 4d 61 63 |e Morton| for Mac|
|000000e0| 54 75 74 6f 72 20 7d 0d | 7b 20 43 6f 6e 76 65 72 |Tutor }.|{ Conver|
|000000f0| 74 65 64 20 74 6f 20 54 | 4d 4c 20 50 61 73 63 61 |ted to T|ML Pasca|
|00000100| 6c 20 62 79 20 44 61 76 | 69 64 20 45 2e 20 53 6d |l by Dav|id E. Sm|
|00000110| 69 74 68 7d 0d 0d 20 20 | 20 20 7b 24 49 20 4d 65 |ith}..  |  {$I Me|
|00000120| 6d 54 79 70 65 73 2e 69 | 70 61 73 7d 09 09 7b 20 |mTypes.i|pas}..{ |
|00000130| 20 20 54 4d 4c 20 4d 61 | 63 20 49 69 62 72 61 72 |  TML Ma|c Iibrar|
|00000140| 69 65 73 20 7d 0d 20 20 | 20 20 7b 24 49 20 51 75 |ies }.  |  {$I Qu|
|00000150| 69 63 6b 44 72 61 77 2e | 69 70 61 73 7d 20 09 7b |ickDraw.|ipas} .{|
|00000160| 20 20 20 51 75 69 63 6b | 64 72 61 77 20 69 6e 74 |   Quick|draw int|
|00000170| 65 72 66 61 63 65 20 7d | 0d 20 20 20 20 7b 24 49 |erface }|.    {$I|
|00000180| 20 4f 53 49 6e 74 66 2e | 69 70 61 73 20 20 20 7d | OSIntf.|ipas   }|
|00000190| 20 09 7b 20 20 20 4f 70 | 65 72 61 74 69 6e 67 20 | .{   Op|erating |
|000001a0| 53 79 73 74 65 6d 20 69 | 6e 74 65 72 66 61 63 65 |System i|nterface|
|000001b0| 20 7d 0d 20 20 20 20 7b | 24 49 20 54 6f 6f 6c 49 | }.    {|$I ToolI|
|000001c0| 6e 74 66 2e 69 70 61 73 | 20 7d 09 09 7b 20 20 20 |ntf.ipas| }..{   |
|000001d0| 54 6f 6f 6c 62 6f 78 20 | 69 6e 74 65 72 66 61 63 |Toolbox |interfac|
|000001e0| 65 20 7d 0d 0d 20 20 63 | 6f 6e 73 74 0d 20 20 20 |e }..  c|onst.   |
|000001f0| 20 6e 75 6d 53 74 61 72 | 73 20 20 20 3d 20 31 34 | numStar|s   = 14|
|00000200| 30 3b 09 09 20 20 20 20 | 20 20 20 20 7b 20 6e 75 |0;..    |    { nu|
|00000210| 6d 62 65 72 20 6f 66 20 | 73 74 61 72 73 20 77 65 |mber of |stars we|
|00000220| 20 64 69 73 70 6c 61 79 | 20 7d 0d 20 20 20 20 6d | display| }.    m|
|00000230| 61 78 58 59 20 20 20 20 | 20 20 3d 20 36 34 3b 09 |axXY    |  = 64;.|
|00000240| 09 20 20 20 20 20 20 20 | 20 7b 20 6c 61 72 67 65 |.       | { large|
|00000250| 73 74 20 73 74 61 72 20 | 72 61 64 69 75 73 20 28 |st star |radius (|
|00000260| 58 20 6f 72 20 59 29 20 | 7d 0d 20 20 20 20 6d 61 |X or Y) |}.    ma|
|00000270| 78 5a 20 20 20 20 20 20 | 20 3d 20 32 30 30 3b 09 |xZ      | = 200;.|
|00000280| 09 20 20 20 20 20 20 20 | 20 7b 20 6c 61 72 67 65 |.       | { large|
|00000290| 73 74 20 73 74 61 72 20 | 64 69 73 74 61 6e 63 65 |st star |distance|
|000002a0| 20 28 5a 29 20 7d 0d 20 | 20 20 20 73 70 65 65 64 | (Z) }. |   speed|
|000002b0| 20 20 20 20 20 20 3d 20 | 34 3b 09 09 20 20 20 20 |      = |4;..    |
|000002c0| 20 20 20 20 7b 20 5a 20 | 63 68 61 6e 67 65 20 70 |    { Z |change p|
|000002d0| 65 72 20 61 6e 69 6d 61 | 74 69 6f 6e 20 63 79 63 |er anima|tion cyc|
|000002e0| 6c 65 20 7d 0d 0d 20 20 | 74 79 70 65 0d 20 20 20 |le }..  |type.   |
|000002f0| 20 73 74 61 72 20 3d 20 | 72 65 63 6f 72 64 09 09 | star = |record..|
|00000300| 20 20 20 20 20 20 20 20 | 7b 20 69 6e 66 6f 72 6d |        |{ inform|
|00000310| 61 74 69 6f 6e 20 61 62 | 6f 75 74 20 6f 6e 65 20 |ation ab|out one |
|00000320| 73 74 61 72 20 7d 0d 20 | 20 20 20 20 20 70 6c 6f |star }. |     plo|
|00000330| 63 3a 20 20 20 20 70 6f | 69 6e 74 3b 09 09 20 20 |c:    po|int;..  |
|00000340| 20 20 20 20 20 20 7b 20 | 70 68 79 73 69 63 61 6c |      { |physical|
|00000350| 20 6c 6f 63 61 74 69 6f | 6e 20 69 6e 20 73 70 61 | locatio|n in spa|
|00000360| 63 65 20 28 58 2c 20 59 | 29 20 7d 0d 20 20 20 20 |ce (X, Y|) }.    |
|00000370| 20 20 7a 3a 20 20 20 20 | 20 20 20 69 6e 74 65 67 |  z:    |   integ|
|00000380| 65 72 3b 09 09 20 20 20 | 20 20 20 20 20 7b 20 70 |er;..   |     { p|
|00000390| 68 79 73 69 63 61 6c 20 | 6c 6f 63 61 74 69 6f 6e |hysical |location|
|000003a0| 20 69 6e 20 73 70 61 63 | 65 20 28 5a 29 20 7d 0d | in spac|e (Z) }.|
|000003b0| 20 20 20 20 20 20 73 6c | 6f 63 3a 20 20 20 20 70 |      sl|oc:    p|
|000003c0| 6f 69 6e 74 3b 09 09 20 | 20 20 20 20 20 20 20 7b |oint;.. |       {|
|000003d0| 20 6c 6f 63 61 74 69 6f | 6e 20 6f 6e 20 74 68 65 | locatio|n on the|
|000003e0| 20 73 63 72 65 65 6e 20 | 28 68 2c 20 76 29 20 7d | screen |(h, v) }|
|000003f0| 0d 20 20 20 20 65 6e 64 | 3b 0d 0d 20 20 76 61 72 |.    end|;..  var|
|00000400| 09 09 09 09 20 20 20 20 | 20 20 20 20 7b 20 67 6c |....    |    { gl|
|00000410| 6f 62 61 6c 20 70 72 6f | 67 72 61 6d 20 76 61 72 |obal pro|gram var|
|00000420| 69 61 62 6c 65 73 20 7d | 0d 20 20 20 20 73 74 61 |iables }|.    sta|
|00000430| 72 73 3a 20 20 20 20 20 | 61 72 72 61 79 20 5b 30 |rs:     |array [0|
|00000440| 2e 2e 6e 75 6d 53 74 61 | 72 73 5d 20 6f 66 20 73 |..numSta|rs] of s|
|00000450| 74 61 72 3b 20 7b 20 69 | 6e 66 6f 72 6d 61 74 69 |tar; { i|nformati|
|00000460| 6f 6e 20 6f 6e 20 73 74 | 61 72 73 20 7d 0d 20 20 |on on st|ars }.  |
|00000470| 20 20 62 6f 75 6e 64 73 | 3a 20 20 20 20 72 65 63 |  bounds|:    rec|
|00000480| 74 3b 09 09 20 20 20 20 | 20 20 20 20 7b 20 72 65 |t;..    |    { re|
|00000490| 63 74 61 6e 67 6c 65 20 | 75 73 65 64 20 66 6f 72 |ctangle |used for|
|000004a0| 20 62 6f 75 6e 64 73 20 | 63 68 65 63 6b 69 6e 67 | bounds |checking|
|000004b0| 20 7d 0d 20 20 20 20 73 | 6f 72 69 67 69 6e 3a 20 | }.    s|origin: |
|000004c0| 20 20 70 6f 69 6e 74 3b | 09 09 20 20 20 20 20 20 |  point;|..      |
|000004d0| 20 20 7b 20 63 65 6e 74 | 65 72 20 6f 66 20 73 63 |  { cent|er of sc|
|000004e0| 72 65 65 6e 20 7d 0d 20 | 20 20 20 6d 79 50 6f 72 |reen }. |   myPor|
|000004f0| 74 3a 20 20 20 20 67 72 | 61 66 50 6f 72 74 3b 09 |t:    gr|afPort;.|
|00000500| 20 20 20 20 20 20 20 20 | 7b 20 6f 75 72 20 67 72 |        |{ our gr|
|00000510| 61 70 68 69 63 73 20 65 | 6e 76 69 72 6f 6e 6d 65 |aphics e|nvironme|
|00000520| 6e 74 20 7d 0d 20 20 20 | 20 61 6e 65 76 65 6e 74 |nt }.   | anevent|
|00000530| 3a 20 20 20 65 76 65 6e | 74 72 65 63 6f 72 64 3b |:   even|trecord;|
|00000540| 09 20 20 20 20 20 20 20 | 20 7b 20 66 6f 72 20 63 |.       | { for c|
|00000550| 68 65 63 6b 69 6e 67 20 | 69 66 20 74 68 65 20 75 |hecking |if the u|
|00000560| 73 65 72 27 73 20 62 6f | 72 65 64 20 7d 0d 0d 20 |ser's bo|red }.. |
|00000570| 20 70 72 6f 63 65 64 75 | 72 65 20 66 6c 69 70 50 | procedu|re flipP|
|00000580| 69 78 20 28 68 2c 20 76 | 3a 20 69 6e 74 65 67 65 |ix (h, v|: intege|
|00000590| 72 29 3b 20 65 78 74 65 | 72 6e 61 6c 3b 20 7b 20 |r); exte|rnal; { |
|000005a0| 36 38 30 30 30 20 72 6f | 75 74 69 6e 65 20 74 6f |68000 ro|utine to|
|000005b0| 20 66 6c 69 70 20 70 69 | 78 65 6c 20 7d 0d 0d 20 | flip pi|xel }.. |
|000005c0| 20 7b 20 6d 61 6b 65 73 | 74 61 72 20 2d 2d 20 72 | { makes|tar -- r|
|000005d0| 61 6e 64 6f 6d 69 7a 65 | 20 70 68 79 73 69 63 61 |andomize| physica|
|000005e0| 6c 20 6c 6f 63 61 74 69 | 6f 6e 3b 20 73 65 74 20 |l locati|on; set |
|000005f0| 5a 3b 20 66 69 6e 64 20 | 73 63 72 65 65 6e 20 6c |Z; find |screen l|
|00000600| 6f 63 61 74 69 6f 6e 2e | 20 7d 0d 20 20 70 72 6f |ocation.| }.  pro|
|00000610| 63 65 64 75 72 65 20 6d | 61 6b 65 53 74 61 72 20 |cedure m|akeStar |
|00000620| 28 56 41 52 20 6e 65 77 | 3a 20 73 74 61 72 29 3b |(VAR new|: star);|
|00000630| 20 20 20 7b 20 69 6e 69 | 74 69 61 6c 69 7a 65 20 |   { ini|tialize |
|00000640| 6f 6e 65 20 73 74 61 72 | 20 7d 0d 20 20 76 61 72 |one star| }.  var|
|00000650| 20 64 68 2c 20 64 76 3a | 20 69 6e 74 65 67 65 72 | dh, dv:| integer|
|00000660| 3b 09 09 20 20 20 20 20 | 20 20 20 7b 20 73 74 61 |;..     |   { sta|
|00000670| 72 27 73 20 70 6f 73 69 | 74 69 6f 6e 2c 20 72 65 |r's posi|tion, re|
|00000680| 6c 61 74 69 76 65 20 74 | 6f 20 6f 72 69 67 69 6e |lative t|o origin|
|00000690| 20 7d 0d 20 20 62 65 67 | 69 6e 3b 0d 20 20 20 20 | }.  beg|in;.    |
|000006a0| 6e 65 77 2e 70 6c 6f 63 | 2e 68 20 3a 3d 20 72 61 |new.ploc|.h := ra|
|000006b0| 6e 64 6f 6d 20 6d 6f 64 | 20 6d 61 78 58 59 3b 20 |ndom mod| maxXY; |
|000006c0| 20 20 20 20 7b 20 68 6f | 72 69 7a 6f 6e 74 61 6c |    { ho|rizontal|
|000006d0| 20 70 6f 73 69 74 69 6f | 6e 20 7d 0d 20 20 20 20 | positio|n }.    |
|000006e0| 6e 65 77 2e 70 6c 6f 63 | 2e 76 20 3a 3d 20 72 61 |new.ploc|.v := ra|
|000006f0| 6e 64 6f 6d 20 6d 6f 64 | 20 6d 61 78 58 59 3b 20 |ndom mod| maxXY; |
|00000700| 20 20 20 20 7b 20 76 65 | 72 74 69 63 61 6c 20 70 |    { ve|rtical p|
|00000710| 6f 73 69 74 69 6f 6e 20 | 7d 0d 20 20 20 20 6e 65 |osition |}.    ne|
|00000720| 77 2e 7a 20 3a 3d 20 6d | 61 78 5a 3b 09 09 20 20 |w.z := m|axZ;..  |
|00000730| 20 20 20 20 20 20 7b 20 | 68 6f 77 20 66 61 72 20 |      { |how far |
|00000740| 61 77 61 79 20 69 73 20 | 69 74 3f 20 7d 0d 0d 20 |away is |it? }.. |
|00000750| 20 20 20 64 68 20 3a 3d | 20 6e 65 77 2e 70 6c 6f |   dh :=| new.plo|
|00000760| 63 2e 68 2a 6d 61 78 5a | 20 64 69 76 20 6e 65 77 |c.h*maxZ| div new|
|00000770| 2e 7a 3b 20 20 20 20 7b | 20 63 6f 6d 70 75 74 65 |.z;    {| compute|
|00000780| 20 68 20 6f 66 66 73 65 | 74 20 7d 0d 20 20 20 20 | h offse|t }.    |
|00000790| 6e 65 77 2e 73 6c 6f 63 | 2e 68 20 3a 3d 20 73 6f |new.sloc|.h := so|
|000007a0| 72 69 67 69 6e 2e 68 20 | 2b 20 64 68 3b 20 20 20 |rigin.h |+ dh;   |
|000007b0| 20 20 20 20 7b 20 61 6e | 64 20 63 6f 6d 70 75 74 |    { an|d comput|
|000007c0| 65 20 61 62 73 6f 6c 75 | 74 65 20 68 20 70 6f 73 |e absolu|te h pos|
|000007d0| 69 74 69 6f 6e 20 7d 0d | 20 20 20 20 64 76 20 3a |ition }.|    dv :|
|000007e0| 3d 20 6e 65 77 2e 70 6c | 6f 63 2e 76 2a 6d 61 78 |= new.pl|oc.v*max|
|000007f0| 5a 20 64 69 76 20 6e 65 | 77 2e 7a 3b 20 20 20 20 |Z div ne|w.z;    |
|00000800| 7b 20 63 6f 6d 70 75 74 | 65 20 76 20 6f 66 66 73 |{ comput|e v offs|
|00000810| 65 74 20 7d 0d 20 20 20 | 20 6e 65 77 2e 73 6c 6f |et }.   | new.slo|
|00000820| 63 2e 76 20 3a 3d 20 73 | 6f 72 69 67 69 6e 2e 76 |c.v := s|origin.v|
|00000830| 20 2b 20 64 76 3b 20 20 | 20 20 20 20 20 7b 20 61 | + dv;  |     { a|
|00000840| 6e 64 20 63 6f 6d 70 75 | 74 65 20 61 62 73 6f 6c |nd compu|te absol|
|00000850| 75 74 65 20 76 20 70 6f | 73 69 74 69 6f 6e 20 7d |ute v po|sition }|
|00000860| 0d 0d 20 20 20 20 66 6c | 69 70 50 69 78 20 28 6e |..    fl|ipPix (n|
|00000870| 65 77 2e 73 6c 6f 63 2e | 68 2c 20 6e 65 77 2e 73 |ew.sloc.|h, new.s|
|00000880| 6c 6f 63 2e 76 29 3b 20 | 20 20 7b 20 66 6c 69 70 |loc.v); |  { flip|
|00000890| 20 74 68 61 74 20 73 70 | 6f 74 20 28 64 72 61 77 | that sp|ot (draw|
|000008a0| 20 73 74 61 72 20 31 73 | 74 20 74 69 6d 65 29 20 | star 1s|t time) |
|000008b0| 7d 0d 20 20 65 6e 64 3b | 09 09 09 09 20 20 20 20 |}.  end;|....    |
|000008c0| 20 20 20 20 7b 20 6f 66 | 20 70 72 6f 63 65 64 75 |    { of| procedu|
|000008d0| 72 65 20 6d 61 6b 65 53 | 74 61 72 20 7d 0d 0d 20 |re makeS|tar }.. |
|000008e0| 20 7b 20 69 6e 69 74 69 | 61 6c 69 7a 65 20 2d 2d | { initi|alize --|
|000008f0| 20 44 6f 20 4d 61 63 20 | 69 6e 69 74 69 61 6c 69 | Do Mac |initiali|
|00000900| 7a 61 74 69 6f 6e 73 3b | 20 63 61 6c 63 75 6c 61 |zations;| calcula|
|00000910| 74 65 20 64 69 73 70 6c | 61 79 20 72 65 63 74 3b |te displ|ay rect;|
|00000920| 20 69 6e 69 74 69 61 6c | 69 7a 65 0d 20 20 20 20 | initial|ize.    |
|00000930| 73 63 72 65 65 6e 3b 20 | 64 65 66 69 6e 65 20 62 |screen; |define b|
|00000940| 6f 75 6e 64 73 20 72 65 | 63 74 3b 20 64 72 61 77 |ounds re|ct; draw|
|00000950| 20 69 6e 69 74 69 61 6c | 20 73 74 61 72 73 2e 20 | initial| stars. |
|00000960| 7d 0d 20 20 70 72 6f 63 | 65 64 75 72 65 20 69 6e |}.  proc|edure in|
|00000970| 69 74 69 61 6c 69 7a 65 | 3b 09 09 20 20 20 20 20 |itialize|;..     |
|00000980| 20 20 20 7b 20 6f 6e 65 | 2d 74 69 6d 65 20 69 6e |   { one|-time in|
|00000990| 69 74 69 61 6c 69 7a 61 | 74 69 6f 6e 20 7d 0d 20 |itializa|tion }. |
|000009a0| 20 76 61 72 20 69 3a 20 | 69 6e 74 65 67 65 72 3b | var i: |integer;|
|000009b0| 09 09 20 20 20 20 20 20 | 20 20 7b 20 73 74 61 72 |..      |  { star|
|000009c0| 20 6e 75 6d 62 65 72 20 | 7d 0d 20 20 62 65 67 69 | number |}.  begi|
|000009d0| 6e 3b 0d 20 20 20 20 69 | 6e 69 74 47 72 61 66 28 |n;.    i|nitGraf(|
|000009e0| 40 74 68 65 50 6f 72 74 | 29 3b 09 09 20 20 20 20 |@thePort|);..    |
|000009f0| 20 20 20 20 7b 20 66 69 | 72 65 20 75 70 20 71 75 |    { fi|re up qu|
|00000a00| 69 63 6b 64 72 61 77 20 | 7d 0d 20 20 20 20 6f 70 |ickdraw |}.    op|
|00000a10| 65 6e 50 6f 72 74 28 40 | 6d 79 50 6f 72 74 29 3b |enPort(@|myPort);|
|00000a20| 09 09 20 20 20 20 20 20 | 20 20 7b 20 67 65 74 20 |..      |  { get |
|00000a30| 61 20 64 72 61 77 69 6e | 67 20 65 6e 76 69 72 6f |a drawin|g enviro|
|00000a40| 6e 6d 65 6e 74 20 7d 0d | 20 20 20 20 69 6e 69 74 |nment }.|    init|
|00000a50| 43 75 72 73 6f 72 3b 09 | 09 09 20 20 20 20 20 20 |Cursor;.|..      |
|00000a60| 20 20 7b 20 67 65 74 20 | 72 69 64 20 6f 66 20 74 |  { get |rid of t|
|00000a70| 68 65 20 46 69 6e 64 65 | 72 27 73 20 22 77 61 74 |he Finde|r's "wat|
|00000a80| 63 68 22 20 7d 0d 0d 20 | 20 20 20 62 6f 75 6e 64 |ch" }.. |   bound|
|00000a90| 73 20 3a 3d 20 73 63 72 | 65 65 6e 62 69 74 73 2e |s := scr|eenbits.|
|00000aa0| 62 6f 75 6e 64 73 3b 20 | 20 20 20 20 20 20 20 7b |bounds; |       {|
|00000ab0| 20 73 74 61 72 74 20 77 | 69 74 68 20 74 68 65 20 | start w|ith the |
|00000ac0| 77 68 6f 6c 65 20 73 63 | 72 65 65 6e 20 7d 0d 20 |whole sc|reen }. |
|00000ad0| 20 20 20 69 6e 73 65 74 | 52 65 63 74 20 28 62 6f |   inset|Rect (bo|
|00000ae0| 75 6e 64 73 2c 20 32 35 | 2c 20 33 30 29 3b 09 20 |unds, 25|, 30);. |
|00000af0| 20 20 20 20 20 20 20 7b | 20 73 68 72 69 6e 6b 20 |       {| shrink |
|00000b00| 69 74 20 69 6e 20 61 20 | 62 69 74 20 7d 0d 20 20 |it in a |bit }.  |
|00000b10| 20 20 73 6f 72 69 67 69 | 6e 2e 68 20 3a 3d 20 28 |  sorigi|n.h := (|
|00000b20| 62 6f 75 6e 64 73 2e 6c | 65 66 74 20 2b 20 62 6f |bounds.l|eft + bo|
|00000b30| 75 6e 64 73 2e 72 69 67 | 68 74 29 20 64 69 76 20 |unds.rig|ht) div |
|00000b40| 32 3b 20 7b 20 66 69 6e | 64 20 74 68 65 2e 2e 2e |2; { fin|d the...|
|00000b50| 20 7d 0d 20 20 20 20 73 | 6f 72 69 67 69 6e 2e 76 | }.    s|origin.v|
|00000b60| 20 3a 3d 20 28 62 6f 75 | 6e 64 73 2e 74 6f 70 20 | := (bou|nds.top |
|00000b70| 2b 20 62 6f 75 6e 64 73 | 2e 62 6f 74 74 6f 6d 29 |+ bounds|.bottom)|
|00000b80| 20 64 69 76 20 32 3b 20 | 7b 20 2e 2e 2e 6f 72 69 | div 2; |{ ...ori|
|00000b90| 67 69 6e 20 7d 0d 20 20 | 20 20 65 72 61 73 65 52 |gin }.  |  eraseR|
|00000ba0| 65 63 74 20 28 6d 79 50 | 6f 72 74 2e 70 6f 72 74 |ect (myP|ort.port|
|00000bb0| 52 65 63 74 29 3b 20 20 | 20 20 20 20 20 20 7b 20 |Rect);  |      { |
|00000bc0| 63 6c 65 61 6e 20 74 68 | 65 20 73 63 72 65 65 6e |clean th|e screen|
|00000bd0| 20 7d 0d 20 20 20 20 69 | 6e 76 65 72 74 52 65 63 | }.    i|nvertRec|
|00000be0| 74 20 28 62 6f 75 6e 64 | 73 29 3b 09 20 20 20 20 |t (bound|s);.    |
|00000bf0| 20 20 20 20 7b 20 73 70 | 61 63 65 20 69 73 20 62 |    { sp|ace is b|
|00000c00| 6c 61 63 6b 20 7d 0d 20 | 20 20 20 6f 66 66 73 65 |lack }. |   offse|
|00000c10| 74 72 65 63 74 20 28 62 | 6f 75 6e 64 73 2c 20 2d |trect (b|ounds, -|
|00000c20| 73 6f 72 69 67 69 6e 2e | 68 2c 20 2d 73 6f 72 69 |sorigin.|h, -sori|
|00000c30| 67 69 6e 2e 76 29 3b 20 | 7b 20 63 65 6e 74 65 72 |gin.v); |{ center|
|00000c40| 20 62 6f 75 6e 64 73 20 | 6f 6e 20 6f 72 69 67 69 | bounds |on origi|
|00000c50| 6e 20 7d 0d 0d 20 20 20 | 20 66 6f 72 20 69 20 3a |n }..   | for i :|
|00000c60| 3d 20 31 20 74 6f 20 6e | 75 6d 53 74 61 72 73 20 |= 1 to n|umStars |
|00000c70| 64 6f 09 20 20 20 20 20 | 20 20 20 7b 20 6c 6f 6f |do.     |   { loo|
|00000c80| 70 20 74 68 72 6f 75 67 | 68 20 61 6c 6c 20 74 68 |p throug|h all th|
|00000c90| 65 20 73 74 61 72 73 2e | 2e 20 7d 0d 20 20 20 20 |e stars.|. }.    |
|00000ca0| 20 20 20 6d 61 6b 65 53 | 74 61 72 20 28 73 74 61 |   makeS|tar (sta|
|00000cb0| 72 73 20 5b 69 5d 29 3b | 09 20 20 20 20 20 20 20 |rs [i]);|.       |
|00000cc0| 20 7b 20 2e 2e 2e 61 6e | 64 20 6d 61 6b 65 20 75 | { ...an|d make u|
|00000cd0| 70 20 65 61 63 68 20 6f | 6e 65 20 7d 0d 20 20 65 |p each o|ne }.  e|
|00000ce0| 6e 64 3b 09 09 09 09 20 | 20 20 20 20 20 20 20 7b |nd;.... |       {|
|00000cf0| 20 70 72 6f 63 65 64 75 | 72 65 20 69 6e 69 74 20 | procedu|re init |
|00000d00| 7d 0d 0d 20 20 7b 20 63 | 79 63 6c 65 20 2d 2d 20 |}..  { c|ycle -- |
|00000d10| 6d 61 69 6e 20 72 6f 75 | 74 69 6e 65 2e 20 20 46 |main rou|tine.  F|
|00000d20| 6f 72 20 65 61 63 68 20 | 73 74 61 72 2c 20 65 72 |or each |star, er|
|00000d30| 61 73 65 20 74 68 65 20 | 6f 6c 64 20 70 6f 73 69 |ase the |old posi|
|00000d40| 74 69 6f 6e 2e 20 20 54 | 68 65 6e 20 73 65 65 0d |tion.  T|hen see.|
|00000d50| 20 20 20 20 69 66 20 69 | 74 73 20 6d 6f 74 69 6f |    if i|ts motio|
|00000d60| 6e 20 68 61 73 20 63 61 | 72 72 69 65 64 20 69 74 |n has ca|rried it|
|00000d70| 20 70 61 73 74 20 74 68 | 65 20 70 6c 61 6e 65 20 | past th|e plane |
|00000d80| 77 65 27 72 65 20 69 6e | 2e 20 20 49 66 20 73 6f |we're in|.  If so|
|00000d90| 2c 20 77 65 20 63 72 65 | 61 74 65 20 61 0d 20 20 |, we cre|ate a.  |
|00000da0| 20 20 6e 65 77 20 73 74 | 61 72 2e 20 20 49 66 20 |  new st|ar.  If |
|00000db0| 6e 6f 74 2c 20 77 65 20 | 63 6f 6d 70 75 74 65 20 |not, we |compute |
|00000dc0| 74 68 65 20 6e 65 77 20 | 61 70 70 61 72 65 6e 74 |the new |apparent|
|00000dd0| 20 70 6f 73 69 74 69 6f | 6e 20 66 72 6f 6d 20 74 | positio|n from t|
|00000de0| 68 65 20 6e 65 77 20 5a | 2e 0d 20 20 20 20 49 66 |he new Z|..    If|
|00000df0| 20 74 68 65 20 61 70 70 | 61 72 65 6e 74 20 70 6f | the app|arent po|
|00000e00| 73 69 74 69 6f 6e 20 69 | 73 20 6f 75 74 73 69 64 |sition i|s outsid|
|00000e10| 65 20 74 68 65 20 64 69 | 73 70 6c 61 79 2c 20 77 |e the di|splay, w|
|00000e20| 65 20 63 72 65 61 74 65 | 20 61 20 6e 65 77 20 73 |e create| a new s|
|00000e30| 74 61 72 3b 0d 20 20 20 | 20 6f 74 68 65 72 77 69 |tar;.   | otherwi|
|00000e40| 73 65 20 77 65 20 64 72 | 61 77 20 74 68 65 20 73 |se we dr|aw the s|
|00000e50| 74 61 72 27 73 20 6e 65 | 77 20 70 6f 73 69 74 69 |tar's ne|w positi|
|00000e60| 6f 6e 2e 20 7d 0d 20 20 | 70 72 6f 63 65 64 75 72 |on. }.  |procedur|
|00000e70| 65 20 63 79 63 6c 65 3b | 09 09 20 20 20 20 20 20 |e cycle;|..      |
|00000e80| 20 20 7b 20 64 6f 20 6f | 6e 65 20 61 6e 69 6d 61 |  { do o|ne anima|
|00000e90| 74 69 6f 6e 20 63 79 63 | 6c 65 20 7d 0d 20 20 76 |tion cyc|le }.  v|
|00000ea0| 61 72 0d 20 20 20 20 69 | 3a 09 20 20 20 20 69 6e |ar.    i|:.    in|
|00000eb0| 74 65 67 65 72 3b 09 09 | 20 20 20 20 20 20 20 20 |teger;..|        |
|00000ec0| 7b 20 73 74 61 72 20 6e | 75 6d 62 65 72 20 69 6e |{ star n|umber in|
|00000ed0| 20 6d 61 69 6e 20 6c 6f | 6f 70 20 7d 0d 20 20 20 | main lo|op }.   |
|00000ee0| 20 64 76 2c 20 64 68 3a | 20 69 6e 74 65 67 65 72 | dv, dh:| integer|
|00000ef0| 3b 09 09 20 20 20 20 20 | 20 20 20 7b 20 73 74 61 |;..     |   { sta|
|00000f00| 72 20 63 6f 6f 72 64 69 | 6e 61 74 65 73 2c 20 6f |r coordi|nates, o|
|00000f10| 72 69 67 69 6e 2d 72 65 | 6c 61 74 69 76 65 20 7d |rigin-re|lative }|
|00000f20| 0d 20 20 20 20 73 70 3a | 09 20 20 20 20 5e 73 74 |.    sp:|.    ^st|
|00000f30| 61 72 3b 09 09 20 20 20 | 20 20 20 20 20 7b 20 66 |ar;..   |     { f|
|00000f40| 61 73 74 20 70 6f 69 6e | 74 65 72 20 74 6f 20 73 |ast poin|ter to s|
|00000f50| 74 61 72 73 5b 69 5d 20 | 7d 0d 20 20 62 65 67 69 |tars[i] |}.  begi|
|00000f60| 6e 3b 0d 20 20 20 20 66 | 6f 72 20 69 20 3a 3d 20 |n;.    f|or i := |
|00000f70| 31 20 74 6f 20 6e 75 6d | 53 74 61 72 73 20 64 6f |1 to num|Stars do|
|00000f80| 09 20 20 20 20 20 20 20 | 20 7b 20 6c 6f 6f 70 20 |.       | { loop |
|00000f90| 74 68 72 6f 75 67 68 20 | 61 6c 6c 20 74 68 65 20 |through |all the |
|00000fa0| 73 74 61 72 73 20 7d 0d | 20 20 20 20 62 65 67 69 |stars }.|    begi|
|00000fb0| 6e 3b 0d 20 20 20 20 20 | 20 73 70 20 3a 3d 20 40 |n;.     | sp := @|
|00000fc0| 73 74 61 72 73 5b 69 5d | 3b 09 09 20 20 20 20 20 |stars[i]|;..     |
|00000fd0| 20 20 20 7b 20 70 6f 69 | 6e 74 20 74 6f 20 73 74 |   { poi|nt to st|
|00000fe0| 61 72 20 28 61 76 6f 69 | 64 20 73 75 62 73 63 72 |ar (avoi|d subscr|
|00000ff0| 69 70 74 69 6e 67 29 20 | 7d 0d 20 20 20 20 20 20 |ipting) |}.      |
|00001000| 66 6c 69 70 50 69 78 20 | 28 73 70 5e 2e 73 6c 6f |flipPix |(sp^.slo|
|00001010| 63 2e 68 2c 20 73 70 5e | 2e 73 6c 6f 63 2e 76 29 |c.h, sp^|.sloc.v)|
|00001020| 3b 20 7b 20 65 72 61 73 | 65 20 74 68 65 20 73 74 |; { eras|e the st|
|00001030| 61 72 27 73 20 6f 6c 64 | 20 70 6f 73 69 74 69 6f |ar's old| positio|
|00001040| 6e 20 7d 0d 0d 20 20 20 | 20 20 20 73 70 5e 2e 7a |n }..   |   sp^.z|
|00001050| 20 3a 3d 20 73 70 5e 2e | 7a 20 2d 20 73 70 65 65 | := sp^.|z - spee|
|00001060| 64 3b 09 20 20 20 20 20 | 20 20 20 7b 20 74 69 6d |d;.     |   { tim|
|00001070| 65 20 61 64 76 61 6e 63 | 65 73 3a 20 66 69 6e 64 |e advanc|es: find|
|00001080| 20 6e 65 77 20 7a 20 70 | 6f 73 69 74 69 6f 6e 20 | new z p|osition |
|00001090| 7d 0d 20 20 20 20 20 20 | 69 66 20 73 70 5e 2e 7a |}.      |if sp^.z|
|000010a0| 20 3c 3d 20 30 09 09 20 | 20 20 20 20 20 20 20 7b | <= 0.. |       {|
|000010b0| 20 70 61 73 74 20 74 68 | 65 20 70 6c 61 6e 65 20 | past th|e plane |
|000010c0| 6f 66 20 74 68 65 20 65 | 79 65 20 79 65 74 3f 20 |of the e|ye yet? |
|000010d0| 7d 0d 20 20 20 20 20 20 | 74 68 65 6e 20 6d 61 6b |}.      |then mak|
|000010e0| 65 53 74 61 72 20 28 73 | 70 5e 29 09 20 20 20 20 |eStar (s|p^).    |
|000010f0| 20 20 20 20 7b 20 79 65 | 73 3a 20 74 68 69 73 20 |    { ye|s: this |
|00001100| 73 74 61 72 27 73 20 67 | 6f 6e 65 3b 20 6d 61 6b |star's g|one; mak|
|00001110| 65 20 61 6e 6f 74 68 65 | 72 20 7d 0d 20 20 20 20 |e anothe|r }.    |
|00001120| 20 20 65 6c 73 65 20 62 | 65 67 69 6e 3b 09 09 20 |  else b|egin;.. |
|00001130| 20 20 20 20 20 20 20 7b | 20 6e 6f 3a 20 75 70 64 |       {| no: upd|
|00001140| 61 74 65 20 73 74 61 72 | 27 73 20 73 63 72 65 65 |ate star|'s scree|
|00001150| 6e 20 70 6f 73 69 74 69 | 6f 6e 20 7d 0d 20 20 20 |n positi|on }.   |
|00001160| 20 20 20 20 20 64 68 20 | 3a 3d 20 73 70 5e 2e 70 |     dh |:= sp^.p|
|00001170| 6c 6f 63 2e 68 2a 6d 61 | 78 5a 20 64 69 76 20 73 |loc.h*ma|xZ div s|
|00001180| 70 5e 2e 7a 3b 20 7b 20 | 63 6f 6d 70 75 74 65 20 |p^.z; { |compute |
|00001190| 72 65 6c 61 74 69 76 65 | 20 68 20 7d 0d 20 20 20 |relative| h }.   |
|000011a0| 20 20 20 20 20 73 70 5e | 2e 73 6c 6f 63 2e 68 20 |     sp^|.sloc.h |
|000011b0| 3a 3d 20 73 6f 72 69 67 | 69 6e 2e 68 20 2b 20 64 |:= sorig|in.h + d|
|000011c0| 68 3b 20 20 20 7b 20 61 | 6e 64 20 63 6f 6d 70 75 |h;   { a|nd compu|
|000011d0| 74 65 20 61 62 73 6f 6c | 75 74 65 20 73 63 72 65 |te absol|ute scre|
|000011e0| 65 6e 20 68 20 7d 0d 0d | 20 20 20 20 20 20 20 20 |en h }..|        |
|000011f0| 64 76 20 3a 3d 20 73 70 | 5e 2e 70 6c 6f 63 2e 76 |dv := sp|^.ploc.v|
|00001200| 2a 6d 61 78 5a 20 64 69 | 76 20 73 70 5e 2e 7a 3b |*maxZ di|v sp^.z;|
|00001210| 20 7b 20 63 6f 6d 70 75 | 74 65 20 72 65 6c 61 74 | { compu|te relat|
|00001220| 69 76 65 20 76 20 7d 0d | 20 20 20 20 20 20 20 20 |ive v }.|        |
|00001230| 73 70 5e 2e 73 6c 6f 63 | 2e 76 20 3a 3d 20 73 6f |sp^.sloc|.v := so|
|00001240| 72 69 67 69 6e 2e 76 20 | 2b 20 64 76 3b 20 20 20 |rigin.v |+ dv;   |
|00001250| 7b 20 61 6e 64 20 63 6f | 6d 70 75 74 65 20 61 62 |{ and co|mpute ab|
|00001260| 73 6f 6c 75 74 65 20 73 | 63 72 65 65 6e 20 76 20 |solute s|creen v |
|00001270| 7d 0d 0d 20 20 20 20 20 | 20 20 20 69 66 20 20 20 |}..     |   if   |
|00001280| 20 28 64 76 20 3e 3d 20 | 62 6f 75 6e 64 73 2e 62 | (dv >= |bounds.b|
|00001290| 6f 74 74 6f 6d 29 20 20 | 20 20 20 7b 20 69 73 20 |ottom)  |   { is |
|000012a0| 74 68 65 20 6e 65 77 20 | 70 6f 73 69 74 69 6f 6e |the new |position|
|000012b0| 2e 2e 2e 20 7d 0d 20 20 | 20 20 20 20 20 20 20 20 |... }.  |        |
|000012c0| 20 6f 72 20 28 64 76 20 | 3c 3d 20 62 6f 75 6e 64 | or (dv |<= bound|
|000012d0| 73 2e 74 6f 70 29 20 20 | 20 20 20 20 20 20 7b 20 |s.top)  |      { |
|000012e0| 2e 2e 2e 6f 75 74 73 69 | 64 65 2e 2e 2e 20 7d 0d |...outsi|de... }.|
|000012f0| 20 20 20 20 20 20 20 20 | 20 20 20 6f 72 20 28 64 |        |   or (d|
|00001300| 68 20 3e 3d 20 62 6f 75 | 6e 64 73 2e 72 69 67 68 |h >= bou|nds.righ|
|00001310| 74 29 20 20 20 20 20 20 | 7b 20 2e 2e 2e 74 68 65 |t)      |{ ...the|
|00001320| 20 62 6f 75 6e 64 73 20 | 72 65 63 74 61 6e 67 6c | bounds |rectangl|
|00001330| 65 2e 2e 2e 20 7d 0d 20 | 20 20 20 20 20 20 20 20 |e... }. |        |
|00001340| 20 20 6f 72 20 28 64 68 | 20 3c 3d 20 62 6f 75 6e |  or (dh| <= boun|
|00001350| 64 73 2e 6c 65 66 74 29 | 20 20 20 20 20 20 20 7b |ds.left)|       {|
|00001360| 20 2e 2e 2e 77 68 69 63 | 68 20 69 73 20 63 65 6e | ...whic|h is cen|
|00001370| 74 65 72 65 64 20 61 74 | 20 74 68 65 20 6f 72 69 |tered at| the ori|
|00001380| 67 69 6e 3f 20 7d 0d 20 | 20 20 20 20 20 20 20 74 |gin? }. |       t|
|00001390| 68 65 6e 20 6d 61 6b 65 | 53 74 61 72 20 28 73 70 |hen make|Star (sp|
|000013a0| 5e 29 09 20 20 20 20 20 | 20 20 20 7b 20 79 65 73 |^).     |   { yes|
|000013b0| 3a 20 6f 75 74 20 6f 66 | 20 73 69 67 68 74 2c 20 |: out of| sight, |
|000013c0| 73 6f 20 67 65 74 20 61 | 20 6e 65 77 20 6f 6e 65 |so get a| new one|
|000013d0| 20 7d 0d 20 20 20 20 20 | 20 20 20 65 6c 73 65 20 | }.     |   else |
|000013e0| 66 6c 69 70 50 69 78 20 | 28 73 70 5e 2e 73 6c 6f |flipPix |(sp^.slo|
|000013f0| 63 2e 68 2c 20 73 70 5e | 2e 73 6c 6f 63 2e 76 29 |c.h, sp^|.sloc.v)|
|00001400| 20 7b 20 6e 6f 3a 20 64 | 72 61 77 20 69 74 20 61 | { no: d|raw it a|
|00001410| 74 20 6e 65 77 20 70 6f | 73 69 74 69 6f 6e 20 7d |t new po|sition }|
|00001420| 0d 20 20 20 20 20 20 65 | 6e 64 3b 09 09 09 20 20 |.      e|nd;...  |
|00001430| 20 20 20 20 20 20 7b 20 | 6f 66 20 63 61 73 65 20 |      { |of case |
|00001440| 77 68 65 72 65 20 7a 20 | 64 69 64 6e 27 74 20 67 |where z |didn't g|
|00001450| 6f 20 6f 66 66 20 65 64 | 67 65 20 7d 0d 0d 20 20 |o off ed|ge }..  |
|00001460| 20 20 65 6e 64 3b 09 09 | 09 20 20 20 20 20 20 20 |  end;..|.       |
|00001470| 20 7b 20 6f 66 20 6c 6f | 6f 70 20 74 68 72 6f 75 | { of lo|op throu|
|00001480| 67 68 20 61 6c 6c 20 73 | 74 61 72 73 20 7d 0d 20 |gh all s|tars }. |
|00001490| 20 65 6e 64 3b 09 09 09 | 09 20 20 20 20 20 20 20 | end;...|.       |
|000014a0| 20 7b 20 6f 66 20 70 72 | 6f 63 65 64 75 72 65 20 | { of pr|ocedure |
|000014b0| 63 79 63 6c 65 20 7d 0d | 0d 20 20 62 65 67 69 6e |cycle }.|.  begin|
|000014c0| 3b 09 09 09 20 20 20 20 | 20 20 20 20 7b 20 6d 61 |;...    |    { ma|
|000014d0| 69 6e 20 70 72 6f 67 72 | 61 6d 20 7d 0d 20 20 20 |in progr|am }.   |
|000014e0| 20 69 6e 69 74 69 61 6c | 69 7a 65 3b 09 09 09 20 | initial|ize;... |
|000014f0| 20 20 20 20 20 20 20 7b | 20 73 65 74 20 65 76 65 |       {| set eve|
|00001500| 72 79 74 68 69 6e 67 20 | 75 70 20 7d 0d 20 20 20 |rything |up }.   |
|00001510| 20 66 6c 75 73 68 45 76 | 65 6e 74 73 20 28 65 76 | flushEv|ents (ev|
|00001520| 65 72 79 65 76 65 6e 74 | 2c 20 30 29 3b 20 20 20 |eryevent|, 0);   |
|00001530| 20 20 20 20 20 7b 20 69 | 67 6e 6f 72 65 20 73 74 |     { i|gnore st|
|00001540| 61 6c 65 20 65 76 65 6e | 74 73 20 7d 0d 20 20 20 |ale even|ts }.   |
|00001550| 20 72 65 70 65 61 74 09 | 09 09 20 20 20 20 20 20 | repeat.|..      |
|00001560| 20 20 7b 20 6d 61 69 6e | 20 6c 6f 6f 70 3a 20 7d |  { main| loop: }|
|00001570| 0d 20 20 20 20 20 20 63 | 79 63 6c 65 3b 09 09 09 |.      c|ycle;...|
|00001580| 20 20 20 20 20 20 20 20 | 7b 20 64 6f 20 6f 6e 65 |        |{ do one|
|00001590| 20 61 6e 69 6d 61 74 69 | 6f 6e 20 22 66 72 61 6d | animati|on "fram|
|000015a0| 65 22 20 7d 0d 20 20 20 | 20 75 6e 74 69 6c 20 67 |e" }.   | until g|
|000015b0| 65 74 6e 65 78 74 65 76 | 65 6e 74 20 28 6d 44 6f |etnextev|ent (mDo|
|000015c0| 77 6e 4d 61 73 6b 2b 6b | 65 79 44 6f 77 6e 4d 61 |wnMask+k|eyDownMa|
|000015d0| 73 6b 2c 61 6e 65 76 65 | 6e 74 29 3b 20 7b 20 75 |sk,aneve|nt); { u|
|000015e0| 6e 74 69 6c 20 63 6c 69 | 63 6b 20 6f 72 20 6b 65 |ntil cli|ck or ke|
|000015f0| 79 20 7d 0d 20 20 65 6e | 64 2e 0d 00 00 00 00 00 |y }.  en|d.......|
|00001600| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00001610| fc ff f2 48 6e ff ec 4e | ad 06 32 30 2e ff f8 48 |...Hn..N|..20...H|
|00001620| c0 b0 ad fd 72 6f 08 2d | 6e ff fc ff f8 60 10 20 |....ro.-|n....`. |
|00001630| 10 53 6d 61 6c 6c 20 46 | 6c 69 67 68 74 2e 70 61 |.Small F|light.pa|
|00001640| 73 68 02 00 00 00 54 45 | 58 54 45 44 49 54 01 00 |sh....TE|XTEDIT..|
|00001650| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 01 00 14 |..TEXTED|IT......|
|00001660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001670| 00 00 9a 76 b7 32 00 00 | 15 7b 00 00 01 5c f0 00 |...v.2..|.{...\..|
|00001680| 00 2d 48 fd e8 42 67 20 | 6e fd e8 2f 08 48 6e fd |.-H..Bg |n../.Hn.|
|00001690| ec 4e ad 00 32 10 1f 67 | 48 20 2d fd 72 52 80 2b |.N..2..g|H -.rR.+|
|000016a0| 40 fd 72 4e ad 05 f2 2f | 2d e2 70 42 67 2f 2d e2 |@.rN.../|-.pBg/-.|
|000016b0| 70 a9 62 30 1f 52 40 3f | 00 a9 65 48 6d e1 c8 a8 |p.b0.R@?|..eHm...|
|000016c0| 7b 2f 2d e2 70 42 67 2f | 2d e2 70 a9 60 30 1f 52 |{/-.pBg/|-.p.`0.R|
|000016d0| 40 3f 00 a9 63 30 2d e2 | 96 52 40 3b 40 e2 96 60 |@?..c0-.|.R@;@..`|
|000016e0| 16 3f 3c 00 22 3f 3c 00 | 0c 4e ad 00 52 20 6d fd |.?<."?<.|.N..R m.|
|000016f0| d4 20 50 42 28 00 0d 4e | 5e 20 5f 54 4f 4e d0 4e |. PB(..N|^ _TON.N|
|00001700| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 55 00 00 |.......M|onacoU..|
|00001710| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00001720| 00 16 00 00 00 46 00 00 | cc 24 03 50 00 00 00 1c |.....F..|.$.P....|
|00001730| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00001740| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 01 7b b4 |........|......{.|
|00001750| 03 ec ff ff 00 00 00 0e | 00 01 7b c4 00 00 00 00 |........|..{.....|
|00001760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+